;:sys36864
	;.opt oo
	*= $8000
farbram	=$ea24
calcx	=$e9f0
bild	=$d1
farb	=$f3
tmp	=2
tmp2	=4
	ldx #4
	sei
loop	cpx #20
	bcs gs
	jsr calcx
	jsr farbram
	lda bild
	sta tmp
	lda bild+1
	sta tmp+1
	lda farb
	sta tmp2
	lda farb+1
	sta tmp2+1
	dex
	jsr calcx
	jsr farbram
	ldy #37
l2	lda (tmp),y
	sta (bild),y
	lda (tmp2),y
	sta (farb),y
	dey
	bne l2
	inx
	inx
	bne loop
gs	dex
	jsr calcx
	ldy #37
	lda #32
fl	sta (bild),y
	dey
	bne fl
	cli
	rts